home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / twm-listing 11 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  656b  |  32 lines
  1. 10 rem finput#-demo
  2. 20 :
  3. 30 sys 32168
  4. 35 dim d$(144)
  5. 37 poke 40909,34
  6. 40 :
  7. 50 (NULL)6,4,18,19,37,1,0,"dateiname" :(NULL)6,2,128 :(NULL)6
  8. 60 (NULL) 3,"bitte diskette"
  9. 70 (NULL) 5,"einlegen !"
  10. 80 (NULL) 8,10," taste " :(NULL) 2
  11. 90 get w$ :if w$="" then 90
  12. 100 :
  13. 110 rem directory nach d$(1-n) einlesen
  14. 120 rem  d$(0) enthaelt diskname
  15. 130 open 1,8,0,"$"
  16. 140 n=0 :get#1,x$,x$
  17. 150 get#1,x$,x$,x$,x$ :(NULL)1,x$
  18. 160 if left$(x$,6)="blocks" then close1 :n=n-1 :goto 200
  19. 170 (NULL)1,x$ :d$(n)=x$ :(NULL)1,x$
  20. 180 n=n+1 :goto 150
  21. 190 :
  22. 200 rem auswertung
  23. 210 if n>0 then 240
  24. 220 print chr$(147)
  25. 230 (NULL) 5,15," leer " :goto 80
  26. 240 d=1 :(NULL) d$(1),d$(n),0,1,10,1,d
  27. 250 :
  28. 260 (NULL)
  29. 270 if d=0 then (NULL) 10,1,"ausgestiegen." :end
  30. 280 (NULL) 10,1,"sie haben '"+d$(d)+"' gewaehlt !"
  31. 290 end
  32.